home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / winecelr / bartendr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-11-18  |  13.5 KB  |  435 lines
  1. PROGRAM BARTENDER(INPUT,OUTPUT);
  2.  
  3. TYPE  
  4. number_type = 1..29;  
  5.  
  6. { const  
  7. none }  
  8.  
  9. VAR  
  10. a_choice : number_type;  
  11.  
  12. PROCEDURE intro;  
  13.  
  14. BEGIN  
  15.    CLRSCR;  
  16.    TEXTCOLOR(YELLOW);  
  17.    GOTOXY(4,14);  
  18.    WRITELN('* * BARTENDERS RECIPE GUIDE * *');  
  19.    WRITELN;WRITELN;  
  20.    TEXTCOLOR(LIGHTBLUE);  
  21.    WRITELN('  1.  ALEXANDER              15. GEORGIA JULEP');  
  22.    WRITELN('  2.  AMERICAN GROG          16. GIMLET');  
  23.    WRITELN('  3.  BACARDI COCKTAIL       17. GIN & BITTERS');  
  24.    WRITELN('  4.  BANANA DAIQUIRI        18. GIN & TONIC');
  25.    WRITELN('  5.  BEER BUSTER            19. GRASSHOPPER');  
  26.    WRITELN('  6.  BOURBON HIGHBALL       20. HORSE''S NECK');  
  27.    WRITELN('  7.  BOURBON SOUR           21. HOT BUTTERED RUM');  
  28.    WRITELN('  8.  BULL''S EYE             22. LADY BE GOOD');  
  29.    WRITELN('  9.  CAFE ROYAL             23. LADY FINGER');  
  30.    WRITELN('  10. CHAMPAGNE COCKTAIL     24. MANHATTAN');  
  31.    WRITELN('  11. COMPUTER NIGHTMARE     25. MARGARITA');  
  32.    WRITELN('  12. CREME DE MENTHE        26. MARTINI');  
  33.    WRITELN('  13. DAIQUIRI               27. NIGHT CAP');  
  34.    WRITELN('  14. DIXIE JULEP            28. TBS DAYTIMER');  
  35.    WRITELN;  
  36.    TEXTCOLOR(LIGHTRED);  
  37.    WRITE('ENTER THE NUMBER OF YOUR CHOICE (or 29 to END) ');  
  38.    TEXTCOLOR(LIGHTMAGENTA);  
  39. END;  
  40.  
  41. PROCEDURE wait_a_sec;  
  42.  
  43. VAR  
  44.     v : CHAR;  
  45.  
  46. BEGIN  
  47.    TEXTCOLOR(RED + Blink);
  48.    WRITELN;  
  49.    WRITE('                  PRESS ENTER WHEN READY TO CONTINUE');  
  50.    READ(v);  
  51. END;  
  52.  
  53. PROCEDURE select_drink;  
  54.  
  55. BEGIN  
  56.    
  57.    CASE a_choice OF  
  58.       
  59.       1 : BEGIN  
  60.           CLRSCR;  
  61.           GOTOXY(4,3);
  62.           WRITELN('ALEXANDER COCKTAIL');
  63.           WRITELN;
  64.           WRITELN('1 OZ DRY GIN');
  65.           WRITELN('1 OZ CREME DE CACAO (WHITE)');  
  66.           WRITELN('1 OZ SWEET CREAM');  
  67.           WRITELN;  
  68.           WRITELN('SHAKE WITH ICE, STRAIN, AND POUR OVER ICE.');  
  69.           WRITELN('SPRINKLE WITH NUTMEG.');  
  70.           Wait_a_sec;
  71.       END;  
  72.       2 : BEGIN  
  73.           CLRSCR;  
  74.           GOTOXY(4,3);  
  75.           WRITELN('AMERICAN GROG');  
  76.           WRITELN;  
  77.           WRITELN('1 LUMP SUGAR');  
  78.           WRITELN('JUICE 1/4 LEMON');  
  79.           WRITELN('1 1/2 OZ RUM');  
  80.           WRITELN;  
  81.           WRITELN('HEAT A GLASS AND WATER.  POUR THE INGREDIENTS AND HOT WATER');
  82.           WRITELN('INTO THE HOT GLASS.  STIR.');
  83.           Wait_a_sec;
  84.       END;  
  85.       3 : BEGIN  
  86.           CLRSCR;  
  87.           GOTOXY(4,3);  
  88.           WRITELN('BACARDI COCKTAIL');  
  89.           WRITELN;  
  90.           WRITELN('1 1/2 OZ. BACARDI RUM');  
  91.           WRITELN('JUICE 1/2 LIME');  
  92.           WRITELN('1/2 TEASPOON GRENADINE');  
  93.           WRITELN;
  94.           WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS.');  
  95.           Wait_a_sec;  
  96.       END;  
  97.       4 : BEGIN  
  98.           CLRSCR;  
  99.           GOTOXY(4,3);  
  100.           WRITELN('BANANA DAIQUIRI');  
  101.           WRITELN;  
  102.           WRITELN('1 1/2 OZ RUM');  
  103.           WRITELN('1 1/4 OZ LIME JUICE');  
  104.           WRITELN('1 TBLSPOON CURACAO');  
  105.           WRITELN('1 TEASPOON SUGAR');  
  106.           WRITELN('1 SLICED BANANA');  
  107.           WRITELN('1 CUP CRUSHED ICE');  
  108.           WRITELN;  
  109.           WRITELN('POUR INGREDIENTS IN A BLENDER,');
  110.           WRITELN('AND RUN ON LOW FOR 5 SECONDS');
  111.           WRITELN('THEN TURN ON HIGH SPEED UNTIL FIRM.');  
  112.           WRITELN('SERVE WITH CHERRY ON TOP');  
  113.           Wait_a_sec;  
  114.       END;  
  115.       5 : BEGIN  
  116.           CLRSCR;
  117.           GOTOXY(4,3);
  118.           WRITELN('BEER BUSTER');  
  119.           WRITELN;  
  120.           WRITELN('1 1/4 OZ 100 PROOF VODKA');  
  121.           WRITELN('1 COLD BEER');  
  122.           WRITELN('2 DASHES OF TABASCO SAUCE');  
  123.           WRITELN;  
  124.           WRITELN('POUR INGREDIENTS INTO A GLASS AND STIR LIGHTLY');  
  125.           Wait_a_sec;  
  126.       END;  
  127.       6 : BEGIN  
  128.           CLRSCR;  
  129.           GOTOXY(4,3);  
  130.           WRITELN('BOURBON HIGHBALL');  
  131.           WRITELN;  
  132.           WRITELN('2 OZ WHISKEY');  
  133.           WRITELN('GINGER ALE');  
  134.           WRITELN('ICE');  
  135.           WRITELN;  
  136.           WRITELN('POUR INTO GLASS - ADD LEMON PEEL (OPTIONAL) - STIR');  
  137.           Wait_a_sec;  
  138.       END;
  139.       7 : BEGIN
  140.           CLRSCR;  
  141.           GOTOXY(4,3);  
  142.           WRITELN('BOURBON SOUR');  
  143.           WRITELN;  
  144.           WRITELN('2 OZ WHISKEY');
  145.           WRITELN('1 EGG WHITE');  
  146.           WRITELN('JUICE 1/2 LEMON');  
  147.           WRITELN('1 TEASPOON POWDERED SUGAR');  
  148.           WRITELN;  
  149.           WRITELN('SHAKE WITH CRACKED ICE - ADD LEMON SLICE AND CHERRY');  
  150.           Wait_a_sec;  
  151.       END;  
  152.       8 : BEGIN
  153.           CLRSCR;  
  154.           GOTOXY(4,3);  
  155.           WRITELN('BULL''S EYE');
  156.           WRITELN;  
  157.           WRITELN('1 OZ BRANDY');  
  158.           WRITELN('2 OZ HARD CIDER');  
  159.           WRITELN('GINGER ALE');  
  160.           WRITELN;  
  161.           WRITELN('POUR INGREDIENTS INTO GLASS WITH ICE AND STIR.');  
  162.           Wait_a_sec;
  163.       END;  
  164.       9 : BEGIN  
  165.           CLRSCR;  
  166.           GOTOXY(4,3);  
  167.           WRITELN('CAFE ROYAL');  
  168.           WRITELN;  
  169.           WRITELN('1 LUMP OF SUGAR');  
  170.           WRITELN('HIGH PROOF BRANDY');  
  171.           WRITELN;  
  172.           WRITELN('SOAK LUMP OF SUGAR IN BRANDY.  IGNITE IN TEASPOON,');
  173.           WRITELN(' WHILE HOLDING IT OVER A CUP OF COFFEE.');
  174.           WRITELN('HOLD UNTIL IT BURNS OUT. STIR INTO COFFEE.');
  175.           Wait_a_sec;  
  176.        END;  
  177.        10 : BEGIN  
  178.           CLRSCR;
  179.           GOTOXY(4,3);  
  180.           WRITELN('CHAMPAGNE COCKTAIL');  
  181.           WRITELN;  
  182.           WRITELN('1 LUMP OF SUGAR');  
  183.           WRITELN('2 DASHES OF BITTERS');  
  184.           WRITELN('CHAMPAGNE');  
  185.           WRITELN;
  186.           WRITELN('POUR INGREDIENTS INTO GLASS - FILL WITH CHAMPAGNE.');  
  187.           WRITELN('ADD LEMON PEEL TWIST.');  
  188.           Wait_a_sec;  
  189.        END;  
  190.        11 : BEGIN  
  191.           CLRSCR;  
  192.           GOTOXY(4,3);  
  193.           WRITELN('COMPUTER NIGHTMARE');  
  194.           WRITELN;  
  195.           WRITELN('2 OZ COFFEE FLAVORED BRANDY');  
  196.           WRITELN('2 OZ RUM');  
  197.           WRITELN('1/2 CUP DEEP BLACK COFFEE');  
  198.           WRITELN('2 TEASPOONS POWDERED SUGAR');  
  199.           WRITELN;  
  200.           WRITELN('STIR IN SNIFFER AND ADD ICE (CRACKED)');  
  201.           Wait_a_sec;  
  202.        END;  
  203.        12 : BEGIN  
  204.           CLRSCR;  
  205.           GOTOXY(4,3);  
  206.           WRITELN('CREME DE MENTHE');  
  207.           WRITELN;  
  208.           WRITELN('CREME DE MENTHE (GREEN)');
  209.           WRITELN('SHAVED ICE');  
  210.           WRITELN;  
  211.           WRITELN('FILL GLASS WITH SHAVED ICE. POUR IN CREME DE MENTHE.');  
  212.           WRITELN('SERVE WITH TWO STRAWS.');  
  213.           Wait_a_sec;  
  214.        END;
  215.        13 : BEGIN  
  216.           CLRSCR;  
  217.           GOTOXY(4,3);  
  218.           WRITELN('DAIQUIRI');  
  219.           WRITELN;  
  220.           WRITELN('JUICE 1 LIME');  
  221.           WRITELN('1 TEASPOON POWDERED SUGAR');  
  222.           WRITELN('1 1/2 OZ RUM');  
  223.           WRITELN;  
  224.           WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS.');  
  225.           Wait_a_sec;  
  226.        END;  
  227.        14 : BEGIN  
  228.           CLRSCR;  
  229.           GOTOXY(4,3);  
  230.           WRITELN('DIXIE JULEP');  
  231.           WRITELN;
  232.           WRITELN('1 TEASPOON POWDERED SUGAR');  
  233.           WRITELN('2 1/2 OZ BOURBON WHISKEY');  
  234.           WRITELN('ICE');  
  235.           WRITELN;  
  236.           WRITELN('FILL GLASS WITH ICE.  POUR IN INGREDIENTS.');  
  237.           WRITELN('STIR UNTIL GLASS IS');
  238.           WRITELN('FROSTED.  DECORATE WITH MINT ');  
  239.           Wait_a_sec;  
  240.        END;  
  241.        15 : BEGIN  
  242.           CLRSCR;  
  243.           GOTOXY(4,3);  
  244.           WRITELN('GEORGIA JULEP');  
  245.           WRITELN;  
  246.           WRITELN('2 MINT LEAVES');  
  247.           WRITELN('1 1/2 OZ BRANDY');  
  248.           WRITELN('1 OZ PEACH BRANDY');  
  249.           WRITELN('1 TEASPOON SUGAR');  
  250.           WRITELN;  
  251.           WRITELN('PUT MINT LEAVES IN GLASS WITH THE ICE.');
  252.           WRITELN('POUR IN INGREDIENTS. DECORATE WITH MINT LEAVES.');
  253.           Wait_a_sec;  
  254.        END;
  255.        16 : BEGIN  
  256.           CLRSCR;  
  257.           GOTOXY(4,3);  
  258.           WRITELN('GIMLET');  
  259.           WRITELN;  
  260.           WRITELN('1 OZ LIME JUICE');
  261.           WRITELN('1 1/2 OZ DRY GIN');  
  262.           WRITELN('1 TEASPOON SUGAR');  
  263.           WRITELN;  
  264.           WRITELN('SHAKE WITH ICE AND STRAIN INTO THE GLASS.');  
  265.           Wait_a_sec;  
  266.        END;  
  267.        17 : BEGIN  
  268.           CLRSCR;  
  269.           GOTOXY(4,3);  
  270.           WRITELN('GIN AND BITTERS');  
  271.           WRITELN;  
  272.           WRITELN('1/2 TEASPOON BITTERS');  
  273.           WRITELN('DRY GIN');  
  274.           WRITELN;  
  275.           WRITELN('GRADUALLY POUR BITTERS INTO GLASS AND SWIRL GLASS UNTIL THE');
  276.           WRITELN('GLASS IS COATED WITH THE BITTERS.  FILL GLASS WITH DRY GIN');
  277.  
  278.           Wait_a_sec;  
  279.        END;  
  280.        18 : BEGIN  
  281.           CLRSCR;  
  282.           GOTOXY(4,3);  
  283.           WRITELN('GIN AND TONIC');  
  284.           WRITELN;
  285.           WRITELN('2 OZ GIN');  
  286.           WRITELN('QUININE WATER');  
  287.           WRITELN;  
  288.           WRITELN('POUR GIN OVER ICE AND FILL WITH QUININE WATER.  STIR');  
  289.           Wait_a_sec;  
  290.        END;  
  291.        19 : BEGIN  
  292.           CLRSCR;  
  293.           GOTOXY(4,3);  
  294.           WRITELN('GRASSHOPPER');  
  295.           WRITELN;  
  296.           WRITELN('2/3 OZ (GREEN) CREME DE MENTHE');  
  297.           WRITELN('2/3 OZ SWEET CREAM');  
  298.           WRITELN('2/3 OZ CREME DE CACAO');  
  299.           WRITELN;  
  300.           WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS.');
  301.           Wait_a_sec;  
  302.        END;  
  303.        20 : BEGIN  
  304.           CLRSCR;  
  305.           GOTOXY(4,3);  
  306.           WRITELN('HORSE''S NECK');
  307.           WRITELN;
  308.           WRITELN('2 OZ BLENDED WHISKEY');  
  309.           WRITELN('GINGER ALE');  
  310.           WRITELN('SPIRAL PEEL OF LEMON');  
  311.           WRITELN;  
  312.           WRITELN('HANG PEEL OVER RIM OF GLASS. FILL WITH ICE. ADD WHISKEY.');  
  313.           WRITELN('FILL GLASS WITH GINGER ALE');  
  314.           Wait_a_sec;  
  315.       END;  
  316.       21 : BEGIN  
  317.           CLRSCR;  
  318.           GOTOXY(4,3);  
  319.           WRITELN('HOT BUTTERED RUM');  
  320.           WRITELN;  
  321.           WRITELN('1 LUMP SUGAR');  
  322.           WRITELN('2/3 GLASS BOILING WATER');  
  323.           WRITELN('1 SQUARE BUTTER');
  324.           WRITELN('2 OZ RUM');  
  325.           WRITELN;  
  326.           WRITELN('ADD INGREDIENTS TO A HOT GLASS. STIR. ADD NUTMEG TO TOP.');  
  327.           Wait_a_sec;  
  328.       END;  
  329.       22 : BEGIN  
  330.           CLRSCR;
  331.           GOTOXY(4,3);  
  332.           WRITELN('LADY BE GOOD');  
  333.           WRITELN;  
  334.           WRITELN('1 1/2 OZ BRANDY');  
  335.           WRITELN('1/2 OZ (WHITE) CREME DE MENTHE');  
  336.           WRITELN('1/2 OZ SWEET VERMOUTH');  
  337.           WRITELN;  
  338.           WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS');  
  339.           Wait_a_sec;  
  340.       END;  
  341.       23 : BEGIN  
  342.           CLRSCR;  
  343.           GOTOXY(4,3);  
  344.           WRITELN('LADY FINGER');  
  345.           WRITELN;  
  346.           WRITELN('1 OZ DRY GIN');
  347.           WRITELN('1/2 OZ KIRSCHWASSER');  
  348.           WRITELN('1 OZ CHERRY BRANDY');  
  349.           WRITELN;  
  350.           WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS');  
  351.           Wait_a_sec;  
  352.       END;  
  353.       24 : BEGIN
  354.           CLRSCR;  
  355.           GOTOXY(4,3);  
  356.           WRITELN('MANHATTAN');  
  357.           WRITELN('3/4 OZ SWEET VERMOUTH');  
  358.           WRITELN('1 1/2 OZ BLENDED WHISKEY');  
  359.           WRITELN;  
  360.           WRITELN('STIR WITH ICE AND STRAIN INTO GLASS.  SERVE WITH CHERRY.');  
  361.           Wait_a_sec;  
  362.       END;  
  363.       25 : BEGIN  
  364.           CLRSCR;  
  365.           GOTOXY(4,3);  
  366.           WRITELN('MARGARITA');  
  367.           WRITELN;  
  368.           WRITELN('1 1/2 OZ TEQUILA');  
  369.           WRITELN('1/2 OZ TRIPLE SEC');
  370.           WRITELN('1 OZ LEMON OR LIME JUICE');  
  371.           WRITELN('SALT');  
  372.           WRITELN;  
  373.           WRITELN('RUB RIM OF GLASS WITH LEMON OR LIME JUICE.');  
  374.           WRITELN('RUB RIM OF GLASS IN SALT.');  
  375.           WRITELN('SHAKE INGREDIENTS IN ICE AND POUR INTO A GLASS');  
  376.           Wait_a_sec;
  377.       END;  
  378.       26 : BEGIN  
  379.           CLRSCR;  
  380.           GOTOXY(4,3);  
  381.           WRITELN('MARTINI');  
  382.           WRITELN;  
  383.           WRITELN('1 1/2 OZ DRY GIN');  
  384.           WRITELN('3/4 OZ VERMOUTH');  
  385.           WRITELN;  
  386.           WRITELN('FROST GLASS PITCHER AND GLASS. POUR IN THE GIN FIRST.');  
  387.           WRITELN('THEN THE VERMOUTH.  STIR WITH VERY COLD DRY (NOT WET) ICE.'); 
  388.  
  389.           WRITELN('STRAIN INTO GLASS. SERVE WITH OLIVE.');  
  390.           Wait_a_sec;  
  391.       END;  
  392.       27 : BEGIN
  393.           CLRSCR;
  394.           GOTOXY(4,3);
  395.           WRITELN('NIGHT CAP');
  396.           WRITELN;
  397.           WRITELN('2 OZ RUM');
  398.           WRITELN('1 TEASPOON POWDERED SUGAR');
  399.           WRITELN('WARM MILK');
  400.           WRITELN;
  401.           WRITELN('POUR INGREDIENTS IN A GLASS OR MUG ');
  402.           WRITELN('AND SPRINKLE WITH NUTMEG');
  403.           Wait_a_sec;
  404.       END;
  405.       28 : BEGIN
  406.          CLRSCR;
  407.          GOTOXY(4,3);
  408.          WRITELN('TBS DAYTIMER');
  409.          WRITELN;
  410.          WRITELN('1 1/2 OZ VODKA');
  411.          WRITELN('3 OZ TOMATO JUICE');
  412.          WRITELN('DASH LEMON JUICE');
  413.          WRITELN('DASH TABASCO SAUCE');
  414.          WRITELN('SALT');
  415.          WRITELN('PEPPER');
  416.          WRITELN('CELERY');
  417.          WRITELN;
  418.          WRITELN('SHAKE WITH ICE AND STRAIN INTO GLASS. ');
  419.          WRITELN('SERVE WITH CELERY IN GLASS.');
  420.          Wait_a_sec;
  421.       END;
  422.    END;
  423. END;
  424.  
  425. BEGIN { main }
  426.    TEXTMODE(c80);
  427.    TEXTBACKGROUND(BLACK);
  428.    REPEAT
  429.       intro;
  430.       READ(a_choice);
  431.       select_drink;
  432.    UNTIL ( a_choice = 29 );
  433.    ClrScr;
  434. END.
  435.